#!/usr/bin/perl
my $i = 0;
my $j = 0;

my $result = '';
for($i=1; $i<=999; $i++) {
  for($j=1; $j<=999; $j++) {
    $result = chr($i * $j);
    if ( $result[0] == $result[5] 
      && $result[1] == $result[4] 
      && $result[2] == $result[3] ) {
    	print $result, "\n";
    }
  }
}

